home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•Games Parlour•
/
HyperQuackey 1.1 ••••
/
HyperQuackey 1.1 ееее
/
stack.txt
< prev
next >
Wrap
Text File
|
1990-10-02
|
3KB
|
115 lines
-- stack: in.1 –µ–µ–µ–µ
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2264
-- card count: 8
-- first card id: 6016
-- list block id: 7876
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 56576 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
global gameState, winningScore, vulScore, playingTime
if the userlevel < 4 then set the userlevel to 4
hide menubar
set lockscreen to true
push card
go card "HQ Preferences"
put field "Playing Time" into playingTime
put field "Vulnerability Score" into vulScore
put field "Winning Score" into winningScore
pop card
put "justOpened" into gameState
end openStack
on closeStack
global gameState
if gameState ≠ "justOpened" and gameState ≠ "gameOver" then
answer "This will end the current game." with "That's life"
resetGame
end if
doMenu "Compact Stack"
end closeStack
on resetGame
global gameState
set cursor to 4
set lockscreen to true
go card "Player 1"
put 0 into field Score
go next card
put 2 into i
repeat
if (the name of this card) = "card " & quote & "HQ Preferences" & quote
then
exit repeat
end if
doMenu "Delete Card"
add 1 to i
end repeat
go card "Player 1"
send "setGameState justOpened" to bkgnd "Playing Grounds"
end resetGame
on errorSound
play "harpsichord" tempo 1300 "g6 c#5 g6 c#5 g6 c#5"
end errorSound